home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DartmouthXCMDs.cpt / Dartmouth XCMDs Vol 1&2 / card_6277.txt < prev    next >
Text File  |  1989-02-26  |  25KB  |  881 lines
  1. -- card: 6277 from stack: in
  2. -- bmap block id: 8749
  3. -- flags: 0000
  4. -- background id: 8327
  5. -- name: XScrollBox
  6. ----- HyperTalk script -----
  7. on opencard
  8.   set the visible of field 1 to false -- background field
  9.   set the scroll of card field 1 to 0
  10.   set the scroll of card field 2 to 0
  11. end opencard
  12. on closecard
  13.   set the visible of field 1 to true
  14. end closecard
  15.  
  16.  
  17. -- part 2 (field)
  18. -- low flags: 00
  19. -- high flags: 4007
  20. -- rect: left=384 top=62 right=290 bottom=491
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 0
  24. -- font id: 3
  25. -- text size: 9
  26. -- style flags: 0
  27. -- line height: 12
  28. -- part name: scroller
  29.  
  30.  
  31. -- part 3 (button)
  32. -- low flags: 00
  33. -- high flags: 8003
  34. -- rect: left=76 top=298 right=320 bottom=176
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: XScrollBox
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   put empty into msg
  46.   get XScrollBox(2,"Choose one of these:",card field "scroller","Help")
  47.   if it is "Help" then
  48.     put "You pushed the 'Help' button."
  49.   else if it is empty then
  50.     put "You pushed the 'Cancel' button."
  51.   else
  52.     put "Your choice was: " & it
  53.   end if
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part 5 (field)
  59. -- low flags: 00
  60. -- high flags: 2007
  61. -- rect: left=18 top=32 right=290 bottom=384
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 0
  65. -- font id: 20
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: XCMD Text
  70.  
  71.  
  72. -- part 6 (button)
  73. -- low flags: 00
  74. -- high flags: 8003
  75. -- rect: left=304 top=299 right=321 bottom=425
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Show LSC Source
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   get the visible of card field "source"
  87.   set the visible of card field "source" to not it
  88.   if it is false then
  89.     set the name of me to "Hide LSC Source"
  90.   else
  91.     set the name of me to "Show LSC Source"
  92.   end if
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 7 (field)
  98. -- low flags: 81
  99. -- high flags: 0007
  100. -- rect: left=18 top=31 right=290 bottom=489
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 0
  104. -- font id: 3
  105. -- text size: 10
  106. -- style flags: 0
  107. -- line height: 13
  108. -- part name: source
  109.  
  110.  
  111. -- part contents for card part 2
  112. ----- text -----
  113. able
  114. baker
  115. charlie
  116. dog
  117. ernest
  118. fox
  119. gamma
  120. horse
  121. ice cream
  122. jumping jack flash
  123. knockwurst
  124. liver
  125. monkey
  126. no way, jose
  127. occularity
  128. penelope
  129. qwerty
  130. rapscallion
  131. salubrious
  132. twinkle toes
  133. underwhelmed
  134. vermin
  135. wascally wabbit
  136. yokel
  137. zenzational
  138.  
  139. -- part contents for card part 5
  140. ----- text -----
  141. XScrollBox version 1.4
  142. Roger Brown
  143.  
  144. XScrollBox is a HyperCard XFCN that creates a scrolling selection dialog box from any multi-lined container.  Each line of the container is made into a selection line in the dialog. Only one line can be selected. 
  145.  
  146. The return value has two items: the number of the selection and the text of the selection. These are separated by commas as in normal HyperCard format. 
  147.    
  148. Selection can be made by :
  149.    1. double-clicking on a line.
  150.    2. single-clicking on a line, then pressing the OK button.
  151.    3. single-clicking on a line, then pressing the Return key.
  152.    4. typing the first letter(s) of a selection, then doing 1,2, or 3.
  153.      (Note: type selection assumes that the lines are ordere alphabetically)
  154.    5. scrolling with up and down arrow keys, then doing 1,2 or 3.
  155.    
  156.    If the Cancel button is pressed, a null string is returned.
  157.    
  158.    It requires that the DITL and DLOG resources (1345) packaged with 
  159.    it are in the stack.
  160.    
  161.   The dialog is centered on the screen and sized to hold the width of the   
  162.    longest line and/or the prompt line, whichever is widest. It will not 
  163.    overrun the width of a  Mac+ screen.
  164.  
  165. INVOKING XScrollBox
  166.  
  167.   get XScrollBox(first,prompt,container,userButton)
  168.         
  169.    where   first  is a default selection in the list - either a number or a     
  170.                    text string (0 if none).
  171.                 prompt is a string to prompt the user. This appears at the top                      
  172.                    of the dialog box.
  173.                 container is any hypercard container (field, variable), 
  174.                    presumed to be multi-lined.
  175.                 UserButton  is the name for an optional author specified 
  176.                    button. If this button is pressed, its name is returned             
  177.                    further processing by the script.  
  178.                    
  179.  
  180. EXAMPLE
  181.  
  182.  ex.  get XScrollBox(1,"Choose:",card field 1,"Help")
  183.         if OK is pressed, returns : 1,text of line 1 of card field 1
  184.  
  185.  
  186. REVISION HISTORY
  187. 1.1 center dialog box on any size screen
  188. 1.2 - add selection scrolling by typing and by cursor keys
  189. 1.3 - add text of chosen item to return value
  190. 1.4 -- 3/2/88   add optional user button
  191.  
  192.  
  193. -- part contents for card part 7
  194. ----- text -----
  195.  
  196. /* XSCrollBox1.4.c */
  197. /* ¬© Trustees of Dartmouth College */
  198. /* written in LightSpeed C  ¬© Think Technologies, Inc */
  199. /* by Roger Brown 3/2/88  Courseware Development Group */
  200.  
  201. /* This is a HyperCard XFCN that creates a scrolling selection dialog box from
  202.    any multi-lined container. Syntax is:
  203.    
  204.         get XScrollBox(first,prompt,container,userButton)
  205.    
  206.    ex.      get XScrollBox(1,"Choose:",card field 1,"Help")
  207.   
  208.    returns: 1,text of line 1 of card field 1
  209.    
  210.    where    first       is a default selection in the list - either a number
  211.                         or a text string (0 if none).
  212.             prompt      is a string to prompt the user. This appears at the
  213.                         top of the dialog box.
  214.             container   is any hypercard container (field, variable), presumed to be 
  215.                         multi-lined.
  216.             UserButton  is the name for an optional author specified button.
  217.                         If this button is pressed, its name is returned
  218.                         for further processing by the script.  
  219.                     
  220.    Each line of the container is made into a selection line in the
  221.    dialog. Only one line can be selected. 
  222.    
  223.    The return value has two items: the number of the selection and the text of
  224.    the selection. These are separated by commas as in normal HyperCard format. 
  225.    
  226.    Selection can be made by:
  227.    
  228.    1. double-clicking on a line.
  229.    2. single-clicking on a line, then pressing the OK button.
  230.    3. single-clicking on a line, then pressing the Return key.
  231.    4. typing the first letter(s) of a selection, then doing 1,2, or 3.
  232.       (Note: type selection assumes that the lines are ordered alphabetically)
  233.    5. scrolling with up and down arrow keys, then doing 1,2 or 3.
  234.    
  235.    If the Cancel button is pressed, a null string is returned.
  236.    
  237.    It requires that the DITL and DLOG resources packaged with it are in the stack.
  238.    
  239.    The dialog box is centered in the card window.
  240.    
  241.    To compile: create a project with this and MacTraps. Build as code resource type
  242.    XFCN, ID 1345, name XScrollBox.
  243. */
  244.  
  245.  
  246.  
  247. #include "stddata_ctype.c"
  248. #include "QuickDraw.h"
  249. #include "EventMgr.h"
  250. #include "WindowMgr.h"
  251. #include "ResourceMgr.h"
  252. #include "ControlMgr.h"
  253. #include "DialogMgr.h"
  254. #include "strings.c"
  255. #include "ListMgr.h"
  256. #include "ToolboxUtil.h"
  257. #include "HyperXCmd.h"
  258. #include "XCmdGlue.inc.c"
  259.  
  260.  
  261. #define FALSE 0
  262. #define TRUE !FALSE
  263.  
  264. /*  The following assembly routines manage register A4. They are required because
  265.     we use global variables and access them from within functions that are passed
  266.     as parameters to other functions. This is a LSC convention. */
  267.     
  268. #define RememberA4() _A4_(1)
  269. #define XCMDSetupA4() asm { move.l A4,-(sp) };_A4_(0)
  270. #define XCMDRestoreA4() asm { move.l (sp)+,A4 }
  271.  
  272. /* globals */
  273.  
  274. #define kOKbutton 1
  275. #define kCancel 2
  276. #define kPrompt 3
  277. #define kListItem 4
  278. #define kOutliner 5
  279. #define kUserButton 6
  280. #define kTyping 99
  281.  
  282. int kScrollBarWidth = 15;
  283.  
  284. int kStdLDEF = 0;
  285. int kDialogId = 1345;
  286. int kStringListId = 1345;
  287.  
  288. int gCellWidth;
  289. int gCellHeight = 16;
  290.  
  291. Rect dialogRect,listRect,cardRect;
  292. ListHandle theList;
  293. DialogPtr theListDialog;
  294. Str255 theResult,userButton;
  295. long theStartWith;
  296. Str255 startString;
  297. char startIsString;
  298. Handle resultHandle;
  299. CursHandle theCursor;
  300. char collector[32];
  301. int charPos;
  302. long charTime;
  303.  
  304. /* return max of 2 integers */
  305.  
  306. max(a,b)
  307. int a,b;
  308. { 
  309.     if (a>b) return a;
  310.     return b;
  311. }
  312.  
  313. /* return min of 2 integers */
  314.  
  315. min(a,b)
  316. {
  317.     if (a<b) return a;
  318.     return b;
  319. }
  320.  
  321. /* Need this register management if you use global variables inside
  322.    procedures that are parameters to other procedures */
  323.    
  324. _A4_(remember)
  325. {   
  326.     asm {
  327.             bra.s @1
  328.     save:   dc.l   0 ;keep saved A4 here
  329.     @1      lea   @save,a1
  330.         }
  331.         if (remember)
  332.             asm {move.l A0,(A1) }
  333.         else
  334.             asm {move.l (A1),A4 }
  335. }
  336.  
  337. /* Get HyperCard comma delimited item i from item list string s. */
  338.  
  339. int GetHCItem(s,i)
  340. char *s;
  341. int i;
  342. {
  343.     int c,len,count,j;
  344.     char temp[32];
  345.     long it;
  346.     
  347.     count = j = 0;
  348.     len = strlen(s);
  349.     for (c=0;c<len;c++) {
  350.         if (s[c]==',') {
  351.             count = count + 1;
  352.             if (count==i) break;
  353.             j = 0;
  354.         }
  355.         else {
  356.             temp[j] = s[c];
  357.             j++;
  358.             if (c==(len-1)) {     /* last item, no comma */
  359.                 count = count+1;
  360.                 break;
  361.             }
  362.         }
  363.     }
  364.     if (count < i) strcpy(temp,"");  /* no item there */
  365.     temp[j] = 0;
  366.     CtoPstr(temp);
  367.     StringToNum(temp,&it);
  368.     return (int)it;
  369. }
  370.  
  371. /* Get the coordiates of the HyperCard card window so we can center the dialog on it. */
  372.  
  373. GetCardRect(paramPtr,itsRect)
  374. XCmdBlockPtr    paramPtr;
  375. Rect *itsRect;
  376. {
  377.     Handle theResult;
  378.     long len;
  379.     Str255 str;
  380.     int i;
  381.     
  382.     strcpy(str,"the rect of card window");
  383.     CtoPstr(str);
  384.     theResult = EvalExpr(paramPtr,str);
  385.     len = GetHandleSize(theResult);
  386.     HLock(theResult);
  387.     BlockMove(*theResult,str,len);
  388.     HUnlock(theResult);
  389.     DisposHandle(theResult);
  390.     itsRect->left = GetHCItem(str,1);
  391.     itsRect->top = GetHCItem(str,2);
  392.     itsRect->right = GetHCItem(str,3);
  393.     itsRect->bottom = GetHCItem(str,4);
  394. }
  395.  
  396. /* user item in dialog box to outline the default (ok) button */
  397.  
  398. pascal void OutlineButton (myWindow,itemNo)
  399. WindowPtr myWindow;
  400. int itemNo;
  401. {
  402.     int iType;
  403.     Handle iHandle;
  404.     Rect iBox;
  405.     
  406.     XCMDSetupA4();
  407.     GetDItem(theListDialog, kOKbutton, &iType, &iHandle, &iBox);
  408.     InsetRect(&iBox, -4, -4);
  409.     PenSize(3, 3);
  410.     FrameRoundRect(&iBox, 16, 16);
  411.     PenNormal();
  412.     XCMDRestoreA4();
  413. }
  414.  
  415. /* User item in dialog box to display the selectin list */
  416.  
  417. pascal void DrawListItem (myWindow,itemNo)
  418. WindowPtr myWindow;
  419. int itemNo;
  420. /* draw the selection list */
  421. {
  422.     RgnHandle theRgn;
  423.     Rect listFrame;
  424.     
  425.     XCMDSetupA4();
  426.     listFrame = (**theList).rView;
  427.     InsetRect(&listFrame, -1, -1);
  428.     FrameRect(&listFrame);
  429.     theRgn = NewRgn();
  430.     RectRgn(theRgn, &(*theListDialog).portRect);
  431.     LUpdate(theRgn, theList);
  432.     DisposeRgn(theRgn);
  433.     XCMDRestoreA4();
  434. }
  435.  
  436. /* string selection logic for selection via typed characters */
  437.  
  438. pascal int MySelect(aPtr,bPtr,aLen,bLen)
  439. Ptr aPtr,bPtr;int aLen,bLen;
  440. {
  441.     if (IUMagString(aPtr,bPtr,aLen,bLen) ==1) return 0;
  442.     return 1;
  443. }
  444.  
  445. /* scroll selection list up or down */
  446.  
  447. VerticalScroll(c)
  448. char c;
  449. {
  450.     Cell oldCell,aCell;
  451.         
  452.     XCMDSetupA4();
  453.     SetPt(&oldCell,0,0);
  454.     if (!LGetSelect(TRUE,&oldCell,theList)) {  /* get current selection */
  455.         SysBeep(0); /* no current selection */
  456.         return;
  457.     }
  458.     if (c==30) {
  459.         SetPt(&aCell,0,max(0,oldCell.v-1));
  460.     }
  461.     else if (c==31) {
  462.         SetPt(&aCell,0,min((**theList).dataBounds.bottom-1,oldCell.v+1));
  463.     }
  464.     if (EqualPt(oldCell,aCell)==1) {
  465.         SysBeep(0);
  466.         return;
  467.     }
  468.     LSetSelect(FALSE,oldCell,theList);  /* clear current selection */
  469.     LSetSelect(TRUE,aCell,theList);     /* set the new one */   
  470.     LAutoScroll(theList);
  471.     XCMDRestoreA4();
  472. }
  473.  
  474. /* Select by typing - a filter proc for ModalDialog. Simulates SGGetFile dialog action. */
  475.  
  476. pascal char NameSelect(theDialog,theEvent,itemHit)
  477. DialogPtr theDialog;EventRecord *theEvent;int *itemHit;
  478. {
  479.     int c;
  480.     long dummy;
  481.     int iType;
  482.     Handle iHandle;
  483.     Rect iBox;
  484.     char result;
  485.     
  486.     XCMDSetupA4();
  487.     result = FALSE;
  488.     if ((theEvent->what == keyDown)||(theEvent->what == autoKey)) {
  489.         if (TickCount() > charTime) charPos = 0;
  490.         collector[charPos] = BitAnd(theEvent->message,charCodeMask);
  491.         if ((collector[charPos] ==13)||(collector[charPos]==3)) {  /* is CR, use as normal */
  492.             *itemHit = 1;
  493.             GetDItem(theListDialog, kOKbutton, &iType, &iHandle, &iBox);
  494.             HiliteControl(iHandle,inButton);
  495.             result = TRUE;
  496.         }
  497.         else if ((collector[charPos]==31)||(collector[charPos]==30)) {  /* cursor up/down */
  498.             VerticalScroll(collector[charPos]);
  499.             charPos = 0;
  500.         }
  501.         else {
  502.             charPos++;
  503.             collector[charPos] = 0;
  504.             *itemHit = 99;
  505.             result = TRUE;
  506.             charTime = TickCount()+45;
  507.         }
  508.     }
  509.     XCMDRestoreA4();
  510.     return result;
  511. }
  512.  
  513. /* Create, size, center, and fill in the selection box. Retuens 0 if any errors occur. */
  514.  
  515. int SetupScrollBox (prompt,theField)
  516. char *prompt;
  517. char *theField;
  518. {
  519.     Rect dataBounds, itemBox,tempRect;
  520.     char doVScroll, doHScroll;
  521.     Point cellSize;
  522.     Cell aCell,oldCell;
  523.     int i,j, itemType,x,y;
  524.     ControlHandle itemHandle;
  525.     Str255 aString;
  526.     long len;
  527.     int fieldLen;
  528.     int numLines,lineLen,maxLen,row;
  529.     char done,c;
  530.     int screenCenterX,screenCenterY;
  531.     int dialogWidth;
  532.     int dialogCenterX,dialogCenterY;
  533.     int itemWidth,itemHeight;
  534.     int itemHit;
  535.     GrafPtr gp;
  536.     Handle tempHandle;
  537.     int numButtons;
  538.     
  539.     XCMDSetupA4();
  540.     if (strlen(userButton)>0) numButtons = 3;
  541.     else numButtons = 2;
  542.     
  543.     /* size the dialog box */
  544.     
  545.     dialogWidth = 200+8*strlen(userButton); /* minimum width to fit buttons at bottom */
  546.                                /* make sure the prompt fits */
  547.     dialogWidth = max(dialogWidth,strlen(prompt)*8+20);
  548.         
  549.     /* find the longest line */
  550.     
  551.     lineLen = maxLen = numLines = 0;
  552.     fieldLen = strlen(theField);
  553.     for (i=0;i<fieldLen;i++) {
  554.         c = theField[i];
  555.         if ((c ==13)||(i==(fieldLen-1))) {
  556.             maxLen = max(lineLen,maxLen);
  557.             lineLen = 0;
  558.             numLines++;
  559.         }
  560.         else lineLen++;
  561.     }
  562.     gCellWidth = maxLen*8;
  563.     
  564.     /* size it to have 10 lines visible and 8 pixels per character */
  565.     /* leave room at the top for the prompt and at the bottom for
  566.        the OK button */
  567.        
  568.     dialogWidth = max(dialogWidth,gCellWidth+20+16);
  569.     dialogWidth = min(dialogWidth,490);  /* chop to screen width */
  570.     
  571.     gCellWidth = dialogWidth-20-16;
  572.     
  573.     SetRect(&dialogRect,0,0,dialogWidth,75+(10*gCellHeight));
  574.     SetRect(&listRect,10,30,10+gCellWidth,30+(10*gCellHeight));
  575.     
  576.     /* now center it in the current port */
  577.         
  578.     screenCenterX = cardRect.left + (cardRect.right - cardRect.left)/2;
  579.     screenCenterY = cardRect.top + (cardRect.bottom - cardRect.top)/2;
  580.  
  581.     dialogCenterX = dialogRect.left + (dialogRect.right-dialogRect.left)/2;
  582.     dialogCenterY = dialogRect.top + (dialogRect.bottom-dialogRect.top)/2;
  583.             
  584.     OffsetRect(&dialogRect,screenCenterX-dialogCenterX,
  585.                 screenCenterY-dialogCenterY);
  586.     
  587.     dialogCenterX = dialogRect.left + (dialogRect.right-dialogRect.left)/2;
  588.     dialogCenterY = dialogRect.top + (dialogRect.bottom-dialogRect.top)/2;
  589.     
  590.     /* now get the dialog resource */
  591.     
  592.     tempHandle = GetResource('DLOG',kDialogId);
  593.     if (tempHandle==NULL) {
  594.         XCMDRestoreA4();
  595.         return 0;
  596.     }
  597.  
  598.     theListDialog = GetNewDialog(kDialogId, NULL,(WindowPtr)NULL);
  599.  
  600.     /* size it and center it */
  601.     
  602.     MoveWindow(theListDialog,dialogRect.left,dialogRect.top,FALSE);
  603.     SizeWindow(theListDialog,dialogRect.right-dialogRect.left,
  604.                 dialogRect.bottom-dialogRect.top,FALSE);
  605.     
  606.     /* adjust the ok button */
  607.     
  608.     GetDItem(theListDialog,kOKbutton,&itemType,&itemHandle,&itemBox);
  609.     itemWidth = (itemBox.right-itemBox.left);
  610.     itemHeight = (itemBox.bottom-itemBox.top);
  611.     x = listRect.left  + 
  612.         (listRect.right+16-listRect.left)/(numButtons*2) - itemWidth/2;
  613.     y = listRect.bottom + 15;   
  614.     SetRect(&itemBox,x,y,x+itemWidth,y+itemHeight); 
  615.     MoveControl(itemHandle,itemBox.left,itemBox.top);
  616.     SetDItem(theListDialog,kOKbutton,itemType,itemHandle,&itemBox);
  617.         
  618.     /* adjust the cancel button */
  619.     
  620.     GetDItem(theListDialog,kCancel,&itemType,&itemHandle,&itemBox);
  621.     itemWidth = (itemBox.right-itemBox.left);
  622.     itemHeight = (itemBox.bottom-itemBox.top);
  623.     x = listRect.left  + 
  624.         (numButtons*2-1)*(listRect.right+16-listRect.left)/(numButtons*2)
  625.          - itemWidth/2;
  626.     y = listRect.bottom + 15;   
  627.     SetRect(&itemBox,x,y,x+itemWidth+100,y+itemHeight); 
  628.     MoveControl(itemHandle,itemBox.left,itemBox.top);
  629.     SetDItem(theListDialog,kCancel,itemType,itemHandle,&itemBox);
  630.     
  631.     /* set up the user button if there is one */
  632.         
  633.     GetDItem(theListDialog,kUserButton,&itemType,&itemHandle,&itemBox);
  634.     CtoPstr(userButton);
  635.     SetCTitle(itemHandle,userButton);
  636.     itemHeight = (itemBox.bottom-itemBox.top);
  637.     itemWidth = 8*strlen(userButton);
  638.     x = listRect.left  + 
  639.         (numButtons*(listRect.right+16-listRect.left)/(numButtons*2))
  640.         - itemWidth/2;
  641.     x = x + 2;        /* to balance OK button outliner */
  642.     y = listRect.bottom + 15;
  643.     SetRect(&itemBox,x,y,x+itemWidth,y+itemHeight);
  644.     MoveControl(itemHandle,itemBox.left,itemBox.top);
  645.     SizeControl(itemHandle,itemWidth,itemHeight);
  646.     SetDItem(theListDialog,kUserButton,itemType,itemHandle,&itemBox);
  647.     PtoCstr(userButton);
  648.  
  649.     
  650.     /* adjust the prompt string and fill it in */
  651.     
  652.     GetDItem(theListDialog,kPrompt,&itemType,&itemHandle,&itemBox);
  653.     itemWidth = strlen(prompt)*8;
  654.     CtoPstr(prompt);    
  655.     SetIText(itemHandle,prompt);
  656.     itemHeight = (itemBox.bottom-itemBox.top);
  657.     x = listRect.left  + 
  658.         (listRect.right+16 - listRect.left)/2 - itemWidth/2;
  659.     y = listRect.top - 5;   
  660.     SetRect(&itemBox,x,y-itemHeight,x+itemWidth,y);     
  661.     SetDItem(theListDialog,kPrompt,itemType,itemHandle,&itemBox);
  662.  
  663.     
  664.     /* now create the text list */
  665.     
  666.     SetRect(&dataBounds, 0, 0, 1, numLines);
  667.     SetPt(&cellSize, gCellWidth, gCellHeight);
  668.     theList = LNew(&listRect, &dataBounds, cellSize,
  669.          kStdLDEF, (WindowPtr)theListDialog, FALSE, FALSE, FALSE, TRUE);
  670.     (**theList).selFlags = lOnlyOne;
  671.      
  672.     /* now fill in its text */
  673.     /* squeeze out control characters 2/27/88 */
  674.     
  675.     j = 0;row = 0;
  676.     for (i=0;i<fieldLen;i++) {
  677.         if (theField[i] > 31) {
  678.             aString[j] = theField[i];
  679.             j++;
  680.         }
  681.         if ((theField[i] ==13)||(i==(fieldLen-1))) {
  682.             aString[j] = 0;
  683.             SetPt(&aCell,0,row);
  684.             row ++;
  685.             lineLen = strlen(aString);
  686.             LSetCell(&aString[0], lineLen, aCell, theList);
  687.             j = 0;
  688.         } 
  689.     }
  690.     if (startIsString) {
  691.         SetPt(&oldCell,0,0);
  692.         LGetSelect(TRUE,&oldCell,theList);  /* get current selection*/
  693.         SetPt(&aCell,0,0);
  694.         if (LSearch(startString,strlen(startString),MySelect,&aCell,theList)) {
  695.             if (!EqualPt(oldCell,aCell)) {
  696.                 LSetSelect(FALSE,oldCell,theList);  /* clear current selection */
  697.                 LSetSelect(TRUE,aCell,theList);     /* set the new one */   
  698.                 LAutoScroll(theList);
  699.             }
  700.         }
  701.     }
  702.     else if ((theStartWith > 0)&&(theStartWith<numLines)); {
  703.         SetPt(&aCell, 0,theStartWith-1);
  704.         LSetSelect(TRUE, aCell, theList);
  705.         if (theStartWith>10) LAutoScroll(theList);
  706.     }
  707.     LDoDraw(TRUE, theList);
  708.     
  709.     
  710.     /* now complete the two user items of the dialog */
  711.     
  712.     itemBox = listRect;
  713.     itemBox.right = itemBox.right + kScrollBarWidth;
  714.  
  715.     SetDItem(theListDialog, kListItem, userItem, DrawListItem, &itemBox);
  716.     GetDItem(theListDialog,kOKbutton,&itemType,&itemHandle,&itemBox);
  717.     SetDItem(theListDialog, kOutliner, userItem + itemDisable, OutlineButton, &itemBox);
  718.     
  719.     /* present the window up front */
  720.     
  721.     ShowWindow(theListDialog);
  722.     BringToFront(theListDialog);
  723.  
  724.     XCMDRestoreA4();
  725.     return 1;
  726. }
  727.  
  728. DoListDialog ()
  729.  
  730. /* pose the dialog and handle it */
  731.  
  732. {
  733.     int itemHit;
  734.     Point aPoint;
  735.     Cell oldCell,aCell;
  736.     
  737.     itemHit = charPos = 0;
  738.     while (1) {
  739.         ModalDialog(NameSelect, &itemHit);
  740.         switch (itemHit) {
  741.             case kOKbutton :
  742.                 return 1;
  743.             break;
  744.             case kCancel:
  745.                 return 0;
  746.             break;
  747.             case kListItem:
  748.                 SetPort(theListDialog);
  749.                 GetMouse(&aPoint);
  750.                 if (LClick(aPoint, 0, theList)) return 1;
  751.             break;
  752.             case kUserButton:
  753.                 return 2;
  754.             break;
  755.             case kTyping:
  756.                 SetPt(&oldCell,0,0);
  757.                 LGetSelect(TRUE,&oldCell,theList);  /* get current selection*/
  758.                 SetPt(&aCell,0,0);
  759.                 if (LSearch(collector,strlen(collector),MySelect,&aCell,theList)) {
  760.                     if (!EqualPt(oldCell,aCell)) {
  761.                         LSetSelect(FALSE,oldCell,theList);  /* clear current selection */
  762.                         LSetSelect(TRUE,aCell,theList);     /* set the new one */   
  763.                         LAutoScroll(theList);
  764.                     }
  765.                 }
  766.             break;
  767.         }
  768.     }
  769. }
  770.  
  771. /* get the text of the selection made */
  772.  
  773. GetListSelection (aString)
  774. char *aString;
  775. {
  776.     char someSelect;
  777.     Cell aCell;
  778.     int stringLength,t,b,i;
  779.     Str255 num;
  780.     long n;
  781.     
  782.     SetPt(&aCell, 0, 0);
  783.     someSelect = LGetSelect(TRUE, &aCell, theList);
  784.     if (someSelect==TRUE) {
  785.         stringLength = 255;
  786.         LGetCell(aString, &stringLength, aCell, theList);
  787.         n = aCell.v+1;
  788.         NumToString(n,num);
  789.         PtoCstr(num);
  790.         *(aString+stringLength) = 0;
  791.         strcat(num,",");
  792.         strcat(num,aString);
  793.         strcpy(aString,num);
  794.     }
  795.     else {
  796.         strcpy(aString,"");
  797.     }
  798. }
  799.  
  800. /* clean up memory */
  801.  
  802. PrepareToExit()
  803. {   
  804.     if (theList != NULL) LDispose(theList);
  805.     if (theListDialog != NULL) DisposDialog(theListDialog);
  806. }
  807.  
  808. /* create scroll box, present it, return user's selection */
  809.  
  810. pascal void XScrollBox(paramPtr)
  811. XCmdBlockPtr    paramPtr;
  812. {   
  813.     Str255 result;
  814.     Ptr start;
  815.     Ptr thePrompt;
  816.     Ptr theField;
  817.     Ptr theUserButton;
  818.     int status,i;
  819.     Size len;
  820.     
  821.     theCursor = GetCursor(watchCursor);
  822.     SetCursor(*theCursor);
  823.     for (i=0;i<5;i++) {
  824.         MoveHHi(paramPtr->params[i]);
  825.         HLock(paramPtr->params[i]);
  826.     }
  827.     start = *(paramPtr->params[0]);
  828.     startIsString = TRUE;
  829.     for (i=0;i<strlen(start);i++) {
  830.         if (!isalpha(start[i])) {
  831.             startIsString = FALSE;
  832.             break;
  833.         }
  834.     }
  835.     if (startIsString) strcpy(startString,start);
  836.     else {
  837.         CtoPstr(start);  
  838.         StringToNum(start,&theStartWith);
  839.     }
  840.     thePrompt = *(paramPtr->params[1]);
  841.     theField = *(paramPtr->params[2]);
  842.     theUserButton = *(paramPtr->params[3]);
  843.     if (GetHandleSize(paramPtr->params[3])>0)
  844.         strcpy(userButton,theUserButton);
  845.     else strcpy(userButton,"");
  846.         
  847.     GetCardRect(paramPtr,&cardRect);
  848.     status = SetupScrollBox(thePrompt,theField);
  849.     InitCursor();
  850.     if (status==1) {
  851.         status = DoListDialog();
  852.         if (status==1) GetListSelection(theResult);
  853.         else if (status==2) strcpy(theResult,userButton);
  854.         else strcpy(theResult,"");
  855.     }
  856.     else strcpy(theResult,"Can't find dialog resource 1345 for XScrollBox XFCN");
  857.     len = 1+strlen(theResult);
  858.     resultHandle = NewHandle(len);
  859.     HLock(resultHandle);
  860.     BlockMove(theResult,*resultHandle,len);
  861.     HUnlock(resultHandle);
  862.     paramPtr->returnValue = resultHandle;
  863.     for (i=0;i<5;i++) HUnlock (paramPtr->params[i]);
  864.     return;
  865. }
  866.  
  867. /* this is the entry point for the XFCN */
  868.  
  869. pascal void main(paramPtr)
  870. XCmdBlockPtr    paramPtr;
  871. {
  872.     RememberA4();
  873.     XCMDSetupA4();          /* do this if you have global variables */
  874.     XScrollBox(paramPtr);       /* run the main event loop */   
  875.     PrepareToExit();        /* tidy up */
  876.     XCMDRestoreA4();        /* and this also */
  877.     return;
  878. }
  879.  
  880.  
  881.